home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / 00001Series_331.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  673 b   |  25 lines
  1. on mouseUp
  2.   puppetSound("mainsnd")
  3.   put "91" into field "whmodnum"
  4.   put EMPTY into field "bemodnum"
  5.   put EMPTY into field "comodnum"
  6.   put EMPTY into field "whexmodnum"
  7.   put EMPTY into field "bearingoption"
  8.   if chars(field "mtmodnum", 2, 2) contains "9" then
  9.     if field "diamodnum" contains "8" then
  10.       put "99." into field "mtmodnum"
  11.     else
  12.       put "09." into field "mtmodnum"
  13.     end if
  14.   end if
  15.   if chars(field "mtmodnum", 2, 2) contains "8" then
  16.     if field "diamodnum" contains "8" then
  17.       put "98." into field "mtmodnum"
  18.     else
  19.       put "08." into field "mtmodnum"
  20.     end if
  21.   end if
  22.   puppetTransition(47, 1, 8)
  23.   play frame "4bbearingc"
  24. end
  25.